 
  if(PP.eq."01") then  

  ii = 0 

  if(ionprod) then 
  gsn_text_ndc(wks,str(ii+0 ),0.095,0.922, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.615,0.922, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.134,0.616, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.617,0.616, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.088,0.310, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.599,0.310, tres)  
  else 
  gsn_text_ndc(wks,str(ii+0 ),0.095,0.922, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.615,0.922, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.134,0.616, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.617,0.616, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.088,0.310, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.599,0.310, tres)  
  end if 

  end if 

  if(PP.eq."02") then  

  ii = 6 

  if(ionprod) then 
  gsn_text_ndc(wks,str(ii+0 ),0.107,0.922, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.593,0.922, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.095,0.616, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.607,0.616, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.086,0.310, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.606,0.310, tres)  
  else 
  gsn_text_ndc(wks,str(ii+0 ),0.107,0.922, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.593,0.922, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.095,0.616, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.607,0.616, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.086,0.310, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.606,0.310, tres)  
  end if 

  end if 
  
  if(PP.eq."03") then   

  ii = 12

  if(ionprod) then 
  gsn_text_ndc(wks,str(ii+0 ),0.104,0.922, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.600,0.922, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.095,0.616, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.583,0.616, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.107,0.310, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.606,0.310, tres)  
  else 
  gsn_text_ndc(wks,str(ii+0 ),0.104,0.922, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.600,0.922, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.095,0.616, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.583,0.616, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.107,0.310, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.606,0.310, tres)  
  end if 

  end if 


  if(PP.eq."04") then   

  ii = 18

  if(ionprod) then 
  gsn_text_ndc(wks,str(ii+0 ),0.150,0.902, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.610,0.902, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.125,0.612, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.650,0.612, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.120,0.323, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.622,0.323, tres)  
  else 
  gsn_text_ndc(wks,str(ii+0 ),0.150,0.902, tres) 
  gsn_text_ndc(wks,str(ii+1 ),0.610,0.902, tres) 
  gsn_text_ndc(wks,str(ii+2 ),0.125,0.612, tres) 
  gsn_text_ndc(wks,str(ii+3 ),0.650,0.612, tres) 
  gsn_text_ndc(wks,str(ii+4 ),0.120,0.323, tres) 
  gsn_text_ndc(wks,str(ii+5 ),0.622,0.323, tres)  
  end if 

  end if 
 
